home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / WorkBench.st < prev   
Encoding:
Text File  |  2004-01-31  |  3.3 KB  |  115 lines
  1. " ----------------------------------------------------------------- "
  2. " Workbench Class implements the functions that the AmigaOS uses to "
  3. " interface to workbench.  Dealings with Icons are performed in the "
  4. " Icon Class in Icons.st.                                           "
  5. " ----------------------------------------------------------------- "
  6.  
  7. Class Workbench :Object ! private ! "appWindow appWindowDropZone appIcon appMenuItem"
  8. [
  9.    closeWorkbench
  10.  
  11.       ^ <primitive 209 1 14>  " Returns true or false "
  12. |      
  13.    openWorkbench    
  14.  
  15.       ^ <primitive 209 1 15>  " Returns true or false "
  16. |
  17.    workbenchToBack
  18.  
  19.       ^ <primitive 209 1 16>  " Returns true or false "
  20. |
  21.    workbenchToFront
  22.  
  23.       ^ <primitive 209 1 17>  " Returns true or false "
  24. |
  25.    addAppWindow: windowObj port: msgPort id: id data: userData tags: tagArray
  26.  
  27.      " ULONG id, ULONG userdata, struct Window *window, 
  28.      * struct MsgPort *msgport, struct TagItem *taglist );
  29.      "
  30.      " Returns an appWindow Object or nil: "
  31.  
  32.      ^ <primitive 209 1 3 private id userData windowObj msgPort tagArray> 
  33. |
  34.    removeAppWindow: appWindowObject
  35.  
  36.      " Returns true or false: "
  37.  
  38.      ^ <primitive 209 1 2 private appWindowObject>
  39. |
  40.    addAppIcon: text port: msgPort   id: id data: userData lock: fileBptrLock 
  41.                     icon: diskObj tags: tagArray
  42.  
  43.      " Returns an appIcon Object or nil: "
  44.  
  45.      ^ <primitive 209 1 4 private id userData text msgPort fileBptrLock diskObj tagArray> 
  46. |
  47.    removeAppIcon: appIconObject
  48.  
  49.      " Returns true or false: "
  50.  
  51.      ^ <primitive 209 1 5 private appIconObject>
  52. |
  53.    addAppMenuItem: text port: msgPort id: id data: userData tags: tagArray
  54.  
  55.      "( ULONG id, ULONG userdata, UBYTE *text, 
  56.      * struct MsgPort *msgport, struct TagItem *taglist );
  57.      "
  58.      " Returns an appMenuItem Object or nil: "
  59.  
  60.      ^ <primitive 209 1 6 private id userData text msgPort tagArray> 
  61. |
  62.    removeAppMenuItem: appMenuItemObject
  63.  
  64.      " Returns true or false: "
  65.  
  66.      ^ <primitive 209 1 7 private appMenuItemObject>
  67. |
  68.    workbenchInfo: objName lock: fileLock screen: screenObject
  69.  
  70.      <primitive 209 1 8 private fileLock objName screenObject>
  71. |
  72.    openWorkbenchObject: objName tags: tagArray
  73.  
  74.      " returns true or false: "
  75.  
  76.      ^ <primitive 209 1 1 private objName tagArray> 
  77. |
  78.    closeWorkbenchObject: objName tags: tagArray
  79.  
  80.      " returns true or false: "
  81.  
  82.      ^ <primitive 209 1 0 private objName tagArray> 
  83. |
  84.    workbenchControl: objName tags: tagArray
  85.  
  86.      " returns true or false: "
  87.  
  88.      ^ <primitive 209 1 9 private objName tagArray> 
  89. |
  90.    addAppWindowDropZone: appWindow id: id data: userData tags: tagArray
  91.  
  92.      " struct AppWindow *aw, ULONG id, ULONG userdata, struct TagItem *tags ); "
  93.      " Returns an appWindowDropZone Object or nil: "
  94.  
  95.      ^ <primitive 209 1 10 private appWindow id userData tagArray> 
  96. |
  97.    removeAppWindowDropZone: appWindow dropZone: appWindowDropZoneObject
  98.  
  99.      " returns true or false: "
  100.  
  101.      ^ <primitive 209 1 11 private appWindow appWindowDropZoneObject> 
  102. | 
  103.    changeWorkbenchSelection: objName hook: hookObject tags: tagArray
  104.  
  105.      " returns true or false: "
  106.  
  107.      ^ <primitive 209 1 12 private objName hookObject tagArray> 
  108. |
  109.    makeWorkbenchObjectVisible: objName tags: tagArray
  110.  
  111.      " returns true or false: "
  112.  
  113.      ^ <primitive 209 1 13 private objName tagArray> 
  114. ]
  115.